home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / ld v4.0 centr. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.7 KB  |  409 lines
  1. 10 rem -------------------------------
  2. 20 rem -----  list-designer two  -----
  3. 30 rem -----                     -----
  4. 40 rem -----  (w) 1992  genies   -----
  5. 50 rem -------------------------------
  6. 55 ifpeek(1023)<>255thenpoke1023,255:load"centronics",8,1
  7. 56 sys51456
  8. 60 print"[154][147]  [196]as [208]rogramm springt automatisch in":poke53280,14:poke53281,15
  9. 70 print"  das [205]enue zurueck, wenn [198]loppy oder"chr$(14)chr$(8)
  10. 80 print"     der serielle [196]rucker aus ist."
  11. 90 print"           (w) 1992 [199]enies":clr:gosub4000:f=1
  12. 93 print"  [201]nitialisiere [198]loppy!":print"  [211]tatus: ";
  13. 95 open1,8,15,"i":input#1,e1$,e2$,e3$,e4$:printe1$","e2$","e3$","e4$:close1
  14. 96 print"  [212]aste!":poke198,.:wait198,1
  15. 100 deffnt(x)=(40-len(x$))/2:dimta$(7,50),eg$(7,51),dr$(30):x=1
  16. 110 f$(2)="[196]iskettenverwaltung":f$(1)="[195][196]-[214]erwaltung":f$(3)="[193]dressenverwaltung"
  17. 111 f$(4)="[214]ideoverwaltung":f$(5)=""
  18. 150 print"[147]":x$="[204]ist-[196]esigner [212]wo v4.0":print""tab(fnt(1))x$:poke198,.
  19. 160 print"----------------------------------------":cp$=" [205]arkt&[212]echnik"
  20. 161 poke214,11:poke211,20:sys58732:print"[215]ritten by [199]enies
  21. 163 [151]214,13:[151]211,20:[158]58732:[153]"(c)";cp$
  22. 164 [151]214,17:[158]58732:[153]"----------------------------------------
  23. 165 poke214,18:poke211,4:sys58732:print"'_' [215]echselt die [196]ateiverwaltung"
  24. 166 poke214,19:sys58732:print"----------------------------------------
  25. 167 [151]214,5:[151]211,.:[158]58732
  26. 170 [153]"str$esigner-(NULL)enue:":m$(1)[178]"- atnnlegen  ":m$(2)[178]"- (NULL)isten   "
  27. 180 m$(3)[178]"- str$rucken  ":m$(4)[178]"- (NULL)aven    ":m$(5)[178]"- (NULL)aden    "
  28. 190 m$(6)[178]"- str$iskette ":m$(7)[178]"- (NULL)oeschen ":m$(8)[178]"- peekeenden  "
  29. 200 [129]t[178]1[164]8:t$(t)[178]""[170]m$(t)[170]"wait":[130]
  30. 210 [153]"":[129]t[178]1[164]8:[153][163]7)m$(t):[130]
  31. 220 [129]r[178]1[164]x:[153]"";:[130]
  32. 230 [153]"ononononononononon"[163]7)t$(x)
  33. 240 [161]a$
  34. 241 [139]a$[178]"b"[167]x[178]8:a$[178][199](13)
  35. 245 [139]a$[178]"_"[175]y[178].[167]f[178]f[170]1:[139]f[178]5[167]f[178]1
  36. 246 [139]a$[178]"_"[175]y[178].[167][151]781,23:[158]59903:[145]f[141]4040,4060,4080,4100,4120
  37. 250 [139]a$[178]"on"[175]x[179] 0[167]240
  38. 260 [139]a$[178]""[175]x[177] 9[167]240
  39. 265 ze[178][194](214):sp[178][194](211):[151]214,23:[151]211,7:[158]58732:[153]"*atnrt: "f$(f)
  40. 266 [151]214,ze:[151]211,sp:[158]58732
  41. 270 [139]a$[178]""[167]x[178]x[170]1:[153]"on"[163]7)m$(x[171]1)[199](13)[163]7)t$(x)
  42. 280 [139]a$[178]"on"[175]x[177]0[167]x[178]x[171]1:[153]"on"[163]7)m$(x[170]1)[199](13)"onon"[163]7)t$(x)
  43. 290 [139]a$[178][199](13)[167]330
  44. 300 [139]x[178]0[175]a$[178]"on"[167]x[178]8:[153][163]7)m$(1)[199](13)""[163]7)t$(x)
  45. 310 [139]x[178]9[175]a$[178]""[167]x[178]1:[153]"onon"[163]7)m$(8)[199](13)"onononononononon"[163]7)t$(x)
  46. 320 [137]240
  47. 330 ya[178]5:ye[178]23:[141]60100
  48. 340 x$[178][201](m$(x),9):[129]t[178]1[164]9:[139][202](x$,t,1)[178]" "[167]r[178]t:t[178]9
  49. 350 [130]:x$[178][200](x$,r):r[178][165]t(x):[153]""[166]r)x$
  50. 360 [145]x[137]361,500,1760,770,950,1220,1150,1720
  51. 361 [139]y[178]50[167][153]"(NULL)ein (NULL)latz gefunden!":[151]198,.:[146]198,1:[137]150
  52. 365 y[178]y[170]1
  53. 370 [151]214,20:[151]211,.:[158]58732
  54. 371 [153]"----------------------------------------";
  55. 372 [153]"  asc1 wait atnendern         asc3 wait peekestaetigung"
  56. 373 [153]"  asc5 wait (NULL)enue           asc7 wait (NULL)eset"
  57. 374 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(NULL)eite:     cmdcmdcmdcmdcmd"y"wait"
  58. 375 ya[178]6:ye[178]18:[141]60100
  59. 376 [129]z[178]6[164]18[169]2:[151]214,z:[151]211,37:[158]58732:[153]"<":[130]:[151]214,4
  60. 377 [151]214,5:[158]58732
  61. 380 [129]t[178]1[164]7
  62. 390 [153]""da$(t)
  63. 400 [130]
  64. 410 [151]214,5:[158]58732:[129]t[178]1[164]7:[153]"";
  65. 420 le[178]20:bs[178]1:[141]60000:ta$(t,y)[178]i$:[130]
  66. 445 [139]y[178]50[167][151]214,21:[151]211,15:[158]58732:[153]"                         "
  67. 450 [151]198,.:[146]198,1:[161]x$:[139]x$[178][199](133)[167]375
  68. 460 [139]x$[178][199](134)[175]y[179]50[167]y[178]y[170]1:[137]374
  69. 465 [139][197](x$)[177].[175][197](x$)[179]8[167][141]61400
  70. 470 [139]x$[178][199](135)[167]150
  71. 480 [139]x$[178][199](136)[167]y[178]0:f[178]1:[137]150
  72. 490 [137]450
  73. 500 [139]y[178]0[167][153]"vals ist keine (NULL)abelle vorhanden!":[151]198,.:[146]198,1:[137]150
  74. 505 d[178]1:[151]214,20:[151]211,.:[158]58732
  75. 510 [153]"----------------------------------------"
  76. 512 [153]"  asc5 wait atnendern         asc7 wait (NULL)enue"
  77. 515 ya[178]6:ye[178]18:[141]60100
  78. 520 [153]""da$(1);ta$(1,d)
  79. 530 [153]""da$(2);ta$(2,d)
  80. 540 [153]""da$(3);ta$(3,d)
  81. 550 [153]""da$(4);ta$(4,d)
  82. 560 [153]""da$(5);ta$(5,d)
  83. 570 [153]""da$(6);ta$(6,d)
  84. 580 [153]""da$(7);ta$(7,d)
  85. 590 [151]214,19:[151]211,.:[158]58732:[153][166]15)"(NULL)eite:     cmdcmdcmdcmdcmd"d"wait"
  86. 600 [139]d[178]y[167][151]214,21:[151]211,.:[158]58732:[153]"          "
  87. 605 [139]d[179]y[167][151]214,21:[151]211,.:[158]58732:[153]"  asc1 wait (NULL)or"
  88. 610 [139]d[179]2[167][151]214,21:[151]211,21:[158]58732:[153]"               "
  89. 615 [139]d[177]1[167][151]214,21:[151]211,21:[158]58732:[153]" asc3 wait (NULL)urueck"
  90. 620 [151]198,.:[146]198,1:[161]x$
  91. 625 [139][197](x$)[177].[175][197](x$)[179]8[167][141]60400
  92. 630 [139]x$[178][199](133)[175]d[179]y[167]d[178]d[170]1:[137]515
  93. 640 [139]x$[178][199](134)[175]d[177]1[167]d[178]d[171]1:[137]515
  94. 650 [139]x$[178][199](135)[167]680
  95. 660 [139]x$[178][199](136)[167]150
  96. 670 [137]620
  97. 680 ya[178]6:ye[178]18:[141]60100
  98. 690 [153]:[129]t[178]1[164]7
  99. 700 [153]""da$(t):[151]214,4[170]t[172]2:[151]211,38:[158]58732:[153]"<"
  100. 710 [130]
  101. 720 [129]t[178]1[164]7:[151]214,4[170]t[172]2:[151]211,16:[158]58732
  102. 730 le[178]20:bs[178]1:[141]60000:ta$(t,d)[178]i$:[151]214,4[170]t[172]2:[151]211,38:[158]58732:[153]" "
  103. 760 [130]:[137]620
  104. 770 [141]60200:[139]er[167]2000
  105. 771 [139]y[178]0[167][153]"(NULL)eine (NULL)abelle vorhanden!":[151]198,.:[146]198,1:[137]150
  106. 775 [159]1,8,15,"ui+":[159]2,8,2,"0:ld 2 reldat"
  107. 780 [132]1,e:[139]e[178]62[167][153]"right$st es die str$atendisk?":[160]1:[160]2
  108. 781 [139]e[178]62[167][151]198,.:[146]198,1:[137]150
  109. 785 [153]"atnb welchem peeklock ablegen (1-20): ";:le[178]2:bs[178]1:[141]60000
  110. 786 ad[178][197](i$):[139]ad[177]20[167][153]"onon":[137]785
  111. 787 [139]ad[178]0[167][160]1:[160]2:[137]150
  112. 790 r[178](ad[171]1)[172]50:h[178][181](r[173]256):l[178]r[171]h[172]256
  113. 792 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[141]60300:[139]e1$[179][177]"00"[167][128]
  114. 793 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[129]d[178].[164]y[171]1
  115. 794 w$[178][201]([196](f),1)
  116. 800 [129]t[178]1[164]7
  117. 810 [139][195](ta$(t,d[170]1))[179]20[167]ta$(t,d[170]1)[178]ta$(t,d[170]1)[170]" ":[137]810
  118. 820 w$[178]w$[170]ta$(t,d[170]1):[130]:[151]211,.:[151]214,10:[158]58732
  119. 830 [139][195](w$)[179][177]141[167][153]"str$atensatzerror!":[160]2:[160]1:[128]
  120. 835 [151]781,2:[158]65481
  121. 840 [152]2,w$;:w$[178]"":[141]60300:[139]e1$[179][177]"00"[167][153]"ascehler!":[128]
  122. 850 [130]:[152]2,[199](255)::[151]211,.:[151]214,8:[158]58732
  123. 855 [153]"str$aten sind geschrieben.":[158]65484
  124. 860 [160]2:[160]1:[137]150
  125. 950 [141]60200:[139]er[167]2000
  126. 951 [140]
  127. 952 [129]t[178]1[164]75:[135]a:[130]:t[178]49152
  128. 953 [135]a:[139]a[179][177][171]1[167][151]t,a:t[178]t[170]1:[137]953
  129. 954 [159]1,8,15,"i":[159]2,8,2,"0:ld 2 reldat"
  130. 955 [132]1,e:[139]e[178]62[167][153]"(NULL)hne str$atei kann ich nichts laden!":[146]203,64,64
  131. 960 [139]e[178]62 [167][160]2:[160]1:[137]150
  132. 970 [153]"atnb welchem peeklock lesen (1-20): ";:le[178]2:bs[178]1:[141]60000
  133. 980 ad[178][197](i$):[139]ad[177]20[167][153]"onon":[137]970
  134. 985 [139]ad[178].[167][160]2:[160]1:[137]150
  135. 990 r[178](ad[171]1)[172]50:h[178][181](r[173]256):l[178]r[171]h[172]256
  136. 1000 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):[141]60300:[139]e1$[179][177]"00"[167][128]
  137. 1010 [152]1,"p"[170][199](2)[170][199](l)[170][199](h)[170][199](1):y[178]1
  138. 1015 [141]60300:[139]e1$[178]"50"[167][160]2:[160]1:[137]150
  139. 1020 [161]#2,a$:[139]a$[178][199](255)[167][151]214,8:[151]211,.:[158]58732:[137]1100
  140. 1030 f[178][197](a$):[151]214,10:[151]211,.:[158]58732
  141. 1040 [129]i[178]1[164]7:[158]49152,a$:ta$(i,y)[178]a$:[130]
  142. 1060 y[178]y[170]1:[139]y[178]51[167]1130
  143. 1065 [137]1020
  144. 1100 [139]y[178]1[167][153]"valin leerer peeklock wurde gelesen.":[137]1140
  145. 1130 [153]"atnlle str$aten sind eingelesen.":[158]65484
  146. 1140 y[178]y[171]1:[160]2:[160]1:[146]203,64,64:[137]150
  147. 1150 [153]"atnlle str$aten str$aten im (NULL)peicher werden ge-
  148. 1160 print"loescht!"
  149. 1170 print"o.[203].? (j[146]/n[146])"
  150. 1180 poke198,.:wait198,1:getx$:ifx$="n"then150
  151. 1190 ifx$<>"j"then1180
  152. 1200 fora=1to7:ford=1to50:ta$(a,d)="":next:poke53280,a:next:y=0
  153. 1210 print"[196]aten sind geloescht!":poke198,.:wait198,1:poke53280,14:goto150
  154. 1220 gosub60200:iferthen2000
  155. 1225 poke214,6:poke211,.:sys58732
  156. 1226 print"[196]isk-[207]ptions 1541/1571":poke214,7:sys58732
  157. 1230 print"    [198][146]ormatieren [174]"chr$(13)"    [204][146]oeschen    [189][145][157][171] einer [196]isk"
  158. 1245 print"    [193][146]nlegen einer [196]atei"
  159. 1246 print"    [211][146]cratchen einer [196]atei"
  160. 1247 print"    [201][146]nitialisieren der [198]loppy
  161. 1255 [153]"    str$waitirectory"
  162. 1260 [153]"(NULL)um (NULL)waitenue zurueckkehren"
  163. 1270 a[178]0:[151]198,.:[146]198,1:[161]x$:[139]x$[178]"m"[167]150
  164. 1280 [139]x$[178]"f"[167]a[178]1
  165. 1285 [139]x$[178]"a"[167]a[178]4
  166. 1286 [139]x$[178]"s"[167]a[178]5
  167. 1290 [139]x$[178]"l"[167]a[178]2
  168. 1295 [139]x$[178]"d"[167]a[178]3
  169. 1296 [139]x$[178]"i"[167]a[178]6
  170. 1320 [139]a[178]0[167]1270
  171. 1330 [159]1,8,15:[145]a[137]1340,1430,1680,1510,1540,6000,6010
  172. 1335 ya[178]6:ye[178]23:[141]60100:[153]"":[160]1:[137]1220
  173. 1340 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)ame der str$iskette: ";:le[178]16:bs[178]1:[141]60000
  174. 1350 n$[178]i$:[153]"right$str$ der str$iskette: ";:le[178]2:bs[178]1:[141]60000
  175. 1360 [139]n$[178]""[176]i$[178]""[167][160]1:[137]1335
  176. 1370 [153]"o.(NULL).? (jwait/nwait)":[151]198,.:[146]198,1:[161]x$
  177. 1380 [139]x$[178]"n"[167]1335
  178. 1390 [139]x$[179][177]"j"[167][153]"onon";:[137]1370
  179. 1400 [152]1,"n:"[170]n$[170]","[170]i$:[132]1,e1$,e2$,e3$,e4$
  180. 1401 [141]60300
  181. 1402 [159]2,8,2,"0:ld 2 reldat,l,"[170][199](141)
  182. 1403 [141]60300:[139]e1$[178]"63"[167][160]1:[160]2:[137]1335
  183. 1404 [152]1,"p"[170][199](98)[170][199](224)[170][199](3)[170][199](1)
  184. 1405 [141]60300
  185. 1406 [152]2,[199](255)
  186. 1407 [141]60300
  187. 1408 [160]2
  188. 1429 [160]1:[151]198,.:[146]198,1:[137]1335
  189. 1430 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)ame der str$iskette: ";:le[178]16:bs[178]1:[141]60000
  190. 1440 n$[178]i$:[139]n$[178]""[167][160]1:[137]1335
  191. 1450 [153]"o.(NULL).? (jwait/nwait)":[151]198,.:[146]198,1:[161]x$
  192. 1460 [139]x$[178]"n"[167]1335
  193. 1470 [139]x$[179][177]"j"[167][153]"onon";:[137]1450
  194. 1480 [152]1,"n:"[170]n$:[132]1,e1$,e2$,e3$,e4$
  195. 1500 [137]1401
  196. 1510 ya[178]6:ye[178]21:[141]60100:[153]"peekitte str$isk fuer die neue str$atei einlegen."
  197. 1520 [146]203,64,64:[161]x$:[139]x$[178]"."[167][160]1:[137]1335
  198. 1530 [153]"onon(NULL)ege jetzt die neue str$atei an.           ":[137]1402
  199. 1540 ya[178]6:ye[178]21:[141]60100:[153]"(NULL)egen sie die str$isk mit der zu scratch-"
  200. 1550 [153]"enden str$atei ein."
  201. 1551 [146]203,64,64:[161]x$:[139]x$[178]"."[167][160]1:[137]1335
  202. 1552 [153]"on                 ":[153]"onon(NULL)cratche str$atei!                       "
  203. 1553 [152]1,"s:ld 2 reldat":[141]60300:[146]203,64,64:[137]1335           "
  204. 1680 print#1,"i":input#1,er
  205. 1690 iferthenprint"[196]isk ist nicht lesbar!":wait203,64,64:goto1335
  206. 1700 fort=1to1000:next:print"[147]"chr$(142):restore:form=828to902
  207. 1710 read p:poke m,p:next:sys828:poke198,.:wait198,1
  208. 1711 print"[147]"chr$(14):x$="[204]ist-[196]esigner [212]wo v4.0":print""tab(fnt(1))x$
  209. 1712 print"----------------------------------------":goto1335
  210. 1720 print"[211]ind [211]ie sicher? (j[146]/n[146])"
  211. 1730 poke198,.:wait198,1:getx$:ifx$="n"then150
  212. 1740 ifx$="j"thenprint"[147][212]schuess...":end
  213. 1750 goto1730
  214. 1760 ify>.then1780
  215. 1770 poke214,12:sys58732:print"  [215]as soll ich denn drucken, du ...?"
  216. 1775 poke198,.:wait198,1:goto150
  217. 1780 poke214,6:poke211,.:sys58732:print"[196]rucker: [211]tar [204][195] 20
  218. 1781 [137]2100
  219. 1782 [141]61000
  220. 1783 [151]214,8:[151]211,.:[158]58732:[153]"(NULL)eberschrift:";:le[178]80:bs[178]1:[141]60000
  221. 1784 [151]781,8:[158]59903:[151]781,9:[158]59903:[151]781,12:[158]59903
  222. 1785 [151]214,11:[151]211,.:[158]58732:[153]"str$rucke!"
  223. 1790 [159]1,18,4:[139]i$[178]""[167]1796
  224. 1795 [152]1,i$
  225. 1796 [152]2,es$[199](45)[199](1)
  226. 1805 [152]1,"(NULL)erzeichnis";:[152]2,es$[199](45)[199](0);
  227. 1806 [152]1,"                             ";:[152]2,es$[199](45)[199](1);
  228. 1807 [152]1,"peekemerkungen":[152]2,es$[199](45)[199](0)
  229. 1810 d[178]1
  230. 1820 [129]t[178]1[164]7:[152]1,da$(t);": ";ta$(t,d):[130]:[152]1,""
  231. 1830 d[178]d[170]1
  232. 1831 [139][181](d[173]8)[178]d[173]8[175]d[179]y[167][141]61500
  233. 1832 [139]d[178][179]y[167]1820
  234. 1870 [151]214,11:[151]211,.:[158]58732:[153]"       "
  235. 1871 [151]781,8:[158]59903:[151]781,9:[158]59903:[151]214,8:[151]211,.:[158]58732
  236. 1875 [153]"atnnzahl der str$aten ausgeben? ";
  237. 1876 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]1876
  238. 1877 [153]a$:[139]a$[178]"n"[167]1899
  239. 1880 [152]1,[199](13)"atnnzahl:";y:[129]t[178]1[164]100:[130]
  240. 1899 [151]781,8:[158]59903:p[178]3:[141]61100
  241. 1900 [151]214,11:[151]211,.:[158]58732:[153]"ascertig!":[146]203,64,64
  242. 1910 [160]2:[160]1:[137]150
  243. 2000 ya[178]6:ye[178]23:[141]60100
  244. 2010 [153]"asc(NULL)(NULL)(NULL)(NULL)(NULL) ist aus! peekitte einschalten!"
  245. 2020 [151]198,.:[146]198,1:[137]150
  246. 2040 ya[178]6:ye[178]23:[141]60100
  247. 2050 [153]"str$on(NULL)on(NULL)onlenon(NULL)onvalon(NULL) ist aus! peekitte einschalten!"
  248. 2060 [151]198,.:[146]198,1:[137]150
  249. 2100 [151]214,8:[151]211,.:[158]58732:[153]"(NULL)enue:
  250. 2110 poke214,10:poke211,10:sys58732:print"- [203]arteikarte"
  251. 2120 poke214,11:poke211,10:sys58732:print"- [204]iste......"
  252. 2130 poke214,12:poke211,10:sys58732:print"- [218]urueck....":u=1
  253. 2140 poke198,0:wait198,1:geta$
  254. 2145 ifa$=""andu<3thenu=u+1:goto2180
  255. 2150 ifa$=""andu=3thenu=1:goto2180
  256. 2155 ifa$="[145]"andu=1thenu=3 :goto2180
  257. 2160 ifa$="[145]"andu>1thenu=u-1:goto2180
  258. 2165 ifa$=chr$(13)then2190
  259. 2170 goto2140
  260. 2180 onugosub2181,2184,2187:goto2140
  261. 2181 poke214,10:poke211,10:sys58732:print"- [203]arteikarte"
  262. 2182 poke214,11:poke211,10:sys58732:print"- [204]iste......"
  263. 2183 poke214,12:poke211,10:sys58732:print"- [218]urueck....":return
  264. 2184 poke214,10:poke211,10:sys58732:print"- [203]arteikarte"
  265. 2185 poke214,11:poke211,10:sys58732:print"- [204]iste......"
  266. 2186 poke214,12:poke211,10:sys58732:print"- [218]urueck....":return
  267. 2187 poke214,10:poke211,10:sys58732:print"- [203]arteikarte"
  268. 2188 poke214,11:poke211,10:sys58732:print"- [204]iste......"
  269. 2189 poke214,12:poke211,10:sys58732:print"- [218]urueck....":return
  270. 2190 gosub2200:onugoto2205,1782,150
  271. 2200 fort=8to15:poke781,t:sys59903:next:poke214,8:sys58732:return
  272. 2205 gosub61000:open1,18,4
  273. 2210 d=1
  274. 2220 fort=1to7:print#1,da$(t);": ";ta$(t,d)::print#1,"":next:print#1:print#1
  275. 2230 d=d+1:gosub61500
  276. 2240 ifd=<ythen2220
  277. 2250 poke214,11:poke211,.:sys58732:print"       "
  278. 2260 poke781,8:sys59903:poke781,9:sys59903
  279. 2270 poke214,11:poke211,.:sys58732:print"[198]ertig!":wait203,64,64
  280. 2280 close2:close1:goto150
  281. 4000 rem "16 [218]eichen!"
  282. 4040 da$(1)="[212]itel:          "
  283. 4041 da$(2)="[205]usiker/[199]ruppe: "
  284. 4042 da$(3)="[212]itelanzahl:    "
  285. 4043 da$(4)="[204]aufzeit:       "
  286. 4044 da$(5)="[205]onat/[202]ahr:     "
  287. 4045 da$(6)="[211]parte:         "
  288. 4046 da$(7)="[194]emerkung:      "
  289. 4050 return
  290. 4060 da$(1)="[206]ame:           "
  291. 4061 da$(2)="[201][196]:             "
  292. 4062 da$(3)="[193]nzahl d. [198]iles:"
  293. 4063 da$(4)="[203]urzbeschreib.: "
  294. 4064 da$(5)="[196]rive + [211]puren: "
  295. 4065 da$(6)="[199]eos [196]isk:      "
  296. 4066 da$(7)="[194]emerkung:      "
  297. 4070 return
  298. 4080 da$(1)="[214]orname:        "
  299. 4081 da$(2)="[206]ame:           "
  300. 4082 da$(3)="[211]tr. / [200]ausnr.: "
  301. 4083 da$(4)="[208]ostleitzahl:   "
  302. 4084 da$(5)="[215]ohnort:        "
  303. 4085 da$(6)="[212]elefon:        "
  304. 4086 da$(7)="[199]eburtstag:     "
  305. 4090 return
  306. 4100 da$(1)="[198]ilmtitel:      "
  307. 4101 da$(2)="[212]hema:          "
  308. 4102 da$(3)="[210]egie:          "
  309. 4103 da$(4)="[202]ahr:           "
  310. 4104 da$(5)="[204]aenge:         "
  311. 4105 da$(6)="[206]r. der [203]ass.:  "
  312. 4106 da$(7)="[194]emerkung:      "
  313. 4110 return
  314. 4111 da$(2)="[206]ame:           "
  315. 4120 da$(1)="                "
  316. 4121 da$(2)="                "
  317. 4122 da$(3)="                "
  318. 4123 da$(4)="                "
  319. 4124 da$(5)="                "
  320. 4125 da$(6)="                "
  321. 4126 da$(7)="                "
  322. 4130 return
  323. 6000 print#1,"i":gosub60300:close1:wait203,64,64:goto1335
  324. 59999 print"ende":end
  325. 60000 p=0:i$=""
  326. 60001 poke204,.:poke198,.:wait198,1:getx$
  327. 60002 poke207,.:poke204,1:print" [157]";
  328. 60003 ifp=.then60005
  329. 60004 ifasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto60001
  330. 60005 ifasc(x$)=13thenprint:return
  331. 60006 ifp=le then60001
  332. 60007 ifbs=.and(x$<"0"orx$>"9")then60001
  333. 60008 ifbs=1and(x$<" "or(x$>chr$(127)andx$<chr$(160)))then60001
  334. 60009 printx$;:i$=i$+x$:p=p+1:goto60001
  335. 60100 fort=yatoye:poke781,t:sys59903:next
  336. 60110 poke214,ya-2:poke211,.:sys58732:return
  337. 60200 poke144,.:poke780,8:sys65457:sys65454:er=peek(144):return
  338. 60210 poke144,.:poke780,4:sys65457:sys65454:er=peek(144):return
  339. 60300 input#1,e1$,e2$,e3$,e4$:poke781,22:sys59903:poke211,.:poke214,22
  340. 60310 sys58732:printe1$","e2$","e3$","e4$:return
  341. 60400 x1=val(x$):y1=4+x1*2:poke780,y1:sys59903
  342. 60410 poke214,y1:poke211,.:sys58732:printda$(x1)
  343. 60420 poke214,y1:poke211,38:sys58732:print"<"
  344. 60430 poke214,y1:poke211,16:sys58732:le=20:bs=1:gosub60000
  345. 60440 ta$(x1,d)=i$:poke214,y1:poke211,38:sys58732:print" ":return
  346. 61000 print"[196]ruckereinstellung
  347. 61010 es$[178][199](27):dr$(0)[178]es$[170]"@":dr$(1)[178][199](12):dr$(2)[178][199](17)
  348. 61011 dr$(7)[178]es$[170][199](120)[170][199](0)
  349. 61012 dr$(8)[178]es$[170][199](120)[170][199](1):dr$(10)[178]es$[170]"(NULL)"[170][199](0)
  350. 61013 dr$(11)[178]es$[170]"r"[170][199](2):dr$(12)[178]es$[170]"p":dr$(13)[178]es$[170]"m"
  351. 61014 dr$(14)[178][199](15):dr$(15)[178][199](18):dr$(16)[178]es$[170]"(NULL)"[170][199](1)
  352. 61015 dr$(17)[178]es$[170]"(NULL)"[170][199](0):dr$(18)[178][199](7):dr$(19)[178]es$[170]"9":dr$(20)[178]es$[170]"u0"
  353. 61016 dr$(9)[178]es$[170][199](107)
  354. 61020 [153]"(NULL)chriftgroesse:
  355. 61021 a$(1)="[208]ica  10 cpi":a$(3)="[208]ica  17 cpi":a$(2)="[197]lite 12 cpi"
  356. 61022 a$(4)="[197]lite 20 cpi":a$(5)="[218]urueck     ":z=1
  357. 61023 fort=1to8:b$(t)=""+a$(t)+"[146]":next
  358. 61024 poke214,12:sys58732:fort=1to8:printtab(10)a$(t):next
  359. 61025 poke214,12:poke211,10:sys58732:printb$(1)
  360. 61026 geta$:ifa$<>""thenpoke214,11+z:poke211,10:sys58732:printa$(z)
  361. 61027 ifa$="[145]"andz<2thenz=5:a$=""
  362. 61028 ifa$=""andz=>5thenz=1:a$=""
  363. 61029 ifa$=""andz<6thenz=z+1
  364. 61030 ifa$="[145]"andz>1thenz=z-1
  365. 61031 ifa$=chr$(13)then61034
  366. 61032 poke214,11+z:poke211,10:sys58732:printb$(z)
  367. 61033 goto61026
  368. 61034 ifz=5then150
  369. 61035 open2,16:ifz=1orz=2thenprint#2,dr$(11+z)dr$(15);:goto61037
  370. 61036 print#2,dr$(9+z)dr$(14);
  371. 61037 ya=10:ye=20:gosub60100:poke214,10:sys58732:print"[211]chriftart:
  372. 61038 a$(1)[178]"str$raft       ":a$(2)[178]"lenourier     ":a$(3)[178]"(NULL)anserif    "
  373. 61039 a$(4)[178]"(NULL)rator 1    ":a$(5)[178]"(NULL)rator 2    ":z[178]1
  374. 61040 [129]t[178]1[164]8:b$(t)[178]""[170]a$(t)[170]"wait":[130]
  375. 61041 [151]214,12:[158]58732:[129]t[178]1[164]8:[153][163]10)a$(t):[130]
  376. 61042 [151]214,12:[151]211,10:[158]58732:[153]b$(1)
  377. 61043 [161]a$:[139]a$[179][177]""[167][151]214,11[170]z:[151]211,10:[158]58732:[153]a$(z)
  378. 61044 [139]a$[178]"on"[175]z[179]2[167]z[178]5:a$[178]""
  379. 61045 [139]a$[178]""[175]z[178][177]5[167]z[178]1:a$[178]""
  380. 61046 [139]a$[178]""[175]z[179]6[167]z[178]z[170]1
  381. 61047 [139]a$[178]"on"[175]z[177]1[167]z[178]z[171]1
  382. 61048 [139]a$[178][199](13)[167]61051
  383. 61049 [151]214,11[170]z:[151]211,10:[158]58732:[153]b$(z)
  384. 61050 [137]61043
  385. 61051 [139]z[178]1[167][152]2,dr$(7);:[137]61057
  386. 61052 [139]z[178]2[167]a$[178][199](0)
  387. 61053 [139]z[178]3[167]a$[178][199](1)
  388. 61054 [139]z[178]4[167]a$[178][199](7)
  389. 61055 [139]z[178]5[167]a$[178][199](8)
  390. 61056 [152]2,dr$(8);dr$(9)a$;
  391. 61057 [152]2,dr$(19)dr$(20)dr$(11)dr$(10);
  392. 61058 ya[178]8:ye[178]20:[137]60100
  393. 61100 [152]2,dr$(18);:[142]
  394. 61400 x1[178][197](x$):y1[178]4[170]x1[172]2:[151]214,y1:[151]211,16:[158]58732:[153]"
  395. 61410 poke214,y1:poke211,.:sys58732:printda$(x1)
  396. 61430 poke214,y1:poke211,16:sys58732:le=20:bs=1:gosub60000
  397. 61440 ta$(x1,d)=i$:return
  398. 61500 poke781,8:sys59903:poke781,9:sys59903:poke214,8:poke211,.:sys58732
  399. 61510 print"[206]aechstes [194]latt einlegen!":gosub61100:wait203,64,64
  400. 61520 poke781,8:sys59903:poke214,8:poke211,.:sys58732
  401. 61530 return
  402. 63000 data169,147,32,210,255,162,134,160,3,169,1,32,189,255,169,8,162,96,133
  403. 63001 data186,134,185,32,213,243,32,25,242,160,4,32,19,238,136,208,250,165,198
  404. 63002 data5,144,208,25,32,19,238,170,32,19,238,32,205,189,32,19,238,32,210,255
  405. 63003 data208,248,32,215,170,160,2,208,219,32,66,246,32,243,246,96,36
  406. 63004 data32,253,174,32,139,176,133,73,132,74,32,163,182,169,20,32,244
  407. 63005 data180,133,250,132,252,134,251,160,2,185,250,,145,73,136,16,248,162,2,32
  408. 63006 data30,225,160,,32,207,255,145,251,200,196,250,208,246,76,204,255,-1
  409.